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RRRRRRRR 000000 AAAAAA DODDDDDD ccccccce AAAAAA SSSSSSSS_ TTTTITTTTT 
BB BB RR RR 00 00 AA AA 0D DD CC as AA SS TT 
BB BB RR RR 00 00 AA AA 0D DD CC ad AA SS TT 
BB BB RR RR 00 00 AA AA 0D DD CC AA AA SS TT 
BB BB RR RR 00 OO AA AA 0D DD CC Ab AA SS TT 
BBBBBBBB RRRRRRRR 00 00 AA AA 0D DD CC AA AA SSSSSS TT 
RRRRRRRR 00 00 AA AA 0D dDdD CC AA AA SSSSSS TT 
BB BB RR RR 00 00 AAAAAAAAAA DD DD CC AAAAAAAAAA $$ TT 
BB BB RR RR 00 00 AAAAAAAAAA DD bod CC ARABAAAAAA SS TT 
BB BB ORR RR 00 00 AA AA 0D DD CC AA AA SS TT cove 
BB BB RR RR 00 AB AA ODD dd cc AA AA SS TT eoee 
BBBBBBBB RR RR 000000 AA AA DDDDDDDD cccccccc AA AA SSSSSSSS TT cece 
BBBBBBBB RR RR 000000 AL AA DDDDDDDD cccccccc AA AA SSSSSSSS TT eoee 
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BROADCAST Broadcest message to user 18-sep-19 4 (3: $:] AX-11 Oh rege se seit & 2:4 of | 


14-Sep-1984 JOBCTL.SR 


001 MODULE BROADCAST(ZTITLE Broadcast message to user’ 
ENT = ‘v04-000' 

= 

BEGIN 


' 
ERS SESLSLSLIL ESIC EE ESET EEE SEE EERE EERE CSRS RECESS STRESS EEE ERECT ETE ESS SY 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY CCORDANCE WITH THE TERMS OF 


jeleleleleloleleolelejeleleleleleq! 


RWW > ooo ooo eB OOOOOSOS 
SODNAUMUEWN (OO ONOAUE WN - OOONOU EF wry 


; : 
tee ; 
: 5 1 : 
eS. : 
; 8 6 1 * : 
; 4 0 1 * 3 
. Se 0 1 * 3 
Be oor) | . 
. *® . 
° i§ 1 I * : 
oe | 0 1 ie IN A § SUCH LICENSE AND WITH THE * : 
; 15 0 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY O/HER * : 
; 16 0 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
3 17 0 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ° 
co ae QO18 1 is TRANSFERRED. * | : 
3 i‘ & | e 
; 20 00 1 !®@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ‘ 
3 $3 00 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
H $$ 88 : * CORPORATION. : 
o -* | . 
; 24 00 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * . 
; $ 4 : ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . ; 
: 27 0027 1 is * 
4 28 00 1 SOR RARER AAA AAAEA AA AAEAAAAA EAE EEAAAARAAA AKA ARAAAeAAKeA ee Pb 
3 9 00 1! : 
; $6 00 1 | ; 
co - 0031 1 !++ | ; 
om 0032 1 ! FACILITY: : 
3 (33 0035 1! Job controller. | : 
3 $e 0034 1! : 
; 5 0035 1 ! ABSTRACT: . 
; Hs] 4 ; This module contains the routines that interface to broadcast. : 
: 36 0038 1 ! ENVIRONMENT: | ; 
: 9 0039 1! VAX/VMS user and kernel mode. ; 
; 40 0040 1 !-- : 
; $§ bOe§ 1 ! AUTHOR: M. Jack, CREATION DATE: 16-Feb-1982 : 
; «6 0043 1! 3 
: 4h 0044 1 ! MODIFIED BY: : 
3 45 0045 1! : 
:; 46 0046 1! v03-004 MLJ0115 Martin L. Jack, 30-Jul-1983 14:37 : 
; rt 4 Boot : Add broadcast class. : 
: 49 0049 1: V03-003 MLJO114 Martin L. Jack, 23-Jun-1983 4:57 ; 
; 3 3930 : Changes for job controller baselevel. : 
 s 005¢ | i v03-002 MLJ0113 _. Martin L. Jack, 26-May-1983 21:06 ; 
; bez : Changes for job controller baselevel. : 
; $5 55 1! v03-001 MLJ0109 Martin L. Jack, 14-Apr-1983 12:45 : 
; 2$ B26 : Changes for job controller baselevel. : 


a al oy Naseer alin pyre tee: 1850-1884 3:98:59 SSR SR eRbABCAST 082: cee | 


; 3 0058 1 !** 


Srondcast message to user IEREErHORE @3SG:DP — YASSLY SMEMaSAdAgT74Ro. 


; 60 9 1 REQUIRE ‘SRCS$S:JOBCTLDEF’; 
; (61 0 0 1 
6 1101 1 
: gi 1108 i pewee BROADCAST MESSAGE NOVALUE 
H = : VALUE; 
65 1104 1 
: 66 1105 1 
67 1106 1 EXTERNAL ROUTINE 
rs.) 1107 1 CREATE_SRO_RECORD; 


9 
BROADCAST Broadcast message to user 1b-se -1984 23:56: AX-11 Bliss-32 V4.0-74 Page 4 Buf 
v04 ° 127808-1 3b 73:36:48 JOBCTL.SRCIBROADCAST .B 2;1 ° (3) Vv 
; rp 119 ! GLOBAL ROUTINE BROADCAST_MESSAGE(SYSID,USERNAME ,LENGTH,ADDRESS): NOVALUE= ‘ 
A an : 
i 2% 111¢ 1 { FUNCTIONAL DESCRIPTION: | i 
ae, 1115 «1! This routine issues a broadcast to all processes with a specified ¢ 
: 76 Wit : username. : 
; (78 1116 1 | INPUT PARAMETERS: | : 
: 79 W171! SYSID - Pointer to system ID of receiver. : 
; 1333 1: USERNAME - Pointer to username of receiver. ; 
; 1 119 1! LENGTH - Descriptor for message. : 
i Be 1120 1 | ADDRESS - : 
: 84 1128 | i IMPLICIT INPUTS: : 
Ro fey” 3 
: 87 1125 1 | OUTPUT PARAMETERS: : 
@ Pee Ei ta. : 
: 90 1128 1 | IMPLICIT OUTPUTS: ; 
; 3) 1 4 : NONE ; 
; 38 1131 1! ROUTINE VALUE: : 
; 94 11 ; 1! NONE 3 
>; «9S 1133 1! : 
: 96 at 1 ! SIDE EFFECTS: é 
; 97 1135 1! Messages broadcast to terminals. : 
; 1136 1! : 
: 99 1137 1 !<- 3 
; 100 1138 #1 : 
: 19 1100 3 RAP ; 
: 103 1141 SYSID: REF BBLOCK, ! Pointer to system ID ; 
; 6104 1336 USERNAME : REF BBLOCK; ! Pointer to username ; 
: ibe 1144 
; 4 11e2 ; If this is a remote user, enter a remote request. ; 
: 109 1149 if SYSID_NEQ(THIS_SYSID, .SYSID) F 
Gee hg 7 
; 112 1150 CREATE_SRQ_RECORD( ; 
3; 11 1151 SROS$K_BROADCAST_MESSAGE 3 
> 114 113¢ ~SYSID, .USERNAME, .LENGTH, .ADDRESS); F 
¢ 115 115 : 
: 116 1154 EL 3 
Wo WG Ee te : 
: 119 1189 MSG_DESC: VEC TORE gd « ! Descriptor for message 3 
: 120 1158 USER_DESC: vECTORC2); ' Descriptor for username 3 
i 153 1160 
; , 5 1193 Initialize descriptors and issue the S$BRKTHRU. | : 
> 125 1188 WSG_DESCEO) = .LENGTH; | : 
: 126 1164 MSG-DESCL1) = ADDRESS; : 


A. 
on ail asians Aneeenn ated IESEpcHBBs GESEHDP  YASGLT OLMeHaRS Sadr 74Bo, 


: 18 1188 UeER-DESE ET] = \GkERNAME 
Py Ss. Py 
. ¥ § & 1189 See rnmot 

: 4 P 1168 MSGBUF =MSG_DESC 

> 131 P 116 SENDTO=USER DESC 

ese é P 1170 SNDTYP=BRKS$C OE SERNAME. 
: 4 P1171 REQID=BRK$C_QUEUE, 

: 4 1126 TIMOUT=10); 

: 135 117 END; 

: 1 1174 1 END; 


TITLE yee 3 Broadcast message to user 
-IDENT \v04-000 


.PSECT COMMON,NOEXE, OVR,2 
00000 DIAG_ oe. aa 

00000 DIAG. TRACES 

00060 DIAG..couies 


; % 
000CO DIAG_FLAGS: P 
000C4 WORK_AREA: 

-BLKB 44 
QO0FO SNDJBC_COUNT: 

-BLKB 132 
00174 GETQUI_COUNT : 

-BLKB 40 
QO19C SNDACC_COUNT: 


~BLK 
00188 SNDSMB_ COUNT : 
00200 DIAG STORAGE END 
00200 F LAGS: :BLKB 
00204 IMAGE. DUMP Bieri 
00208 THIS_SYSiD: 

BLKB 


eats CUR_ TIMEZ 


00218 HOURLY_TIME: 
00220 HOURLY “PARARG 
00234 SYMBIONT “COUNT 
00238 QUEUE _REF ERENCE_ COUNT : 
0023C MBX_MESSAGE sounT 


poste Om “BLKB 4 
00244 MBX “END: -BLKB 4 


me CO ODO MOO LALO N 
o oe ™m 


Beegiget | Srentens scones 0 wee IEsseiats Sta) ELLA | fl 


00248 MEMORY ~FREE gueUe 
00270 NONAST =WORK QUEUE: | 
00278 BCB_FREE List: | 
0027C BCB_ACTIVE LIST: 
L 
00290 SYMBIONT. CONTROL 
00294 SPARE ~AREA: 
002A0 REMOTE _REQUEST _LKSB: 
| 
30E BLKB 
$34 JBC_UIC:.BLKB 
00314 QUEOE_FAB: é 
| 


LK 
O02A8 QUEUE FILE Leases 
002B0 QUEUVE_LOCK KSB: 

-BCKB 


on 


00288 R -BLKB 
002C0 ac ‘PRIORITY: 
0024 JBC_PRIVILEGES: 
GO2CC JBC_QuUOTAS: 
.BLKB 


EO 0 F WO © OAS Re RRR RR 


00280 GOL_FREE‘CIst: 
00284 GaL ACTIVE Uist: 
00288 OPEN_GETQUI LIST: 
0028C PROCESS BATA LIST: 
00364 QUEUE_RAB: 
003A8 QUEUE _NAM: 
00408 QUEUE_XAB: v2 
00460 QUEUE_RSA: 


0055 "BLK 
$320 QUEUE _ALQ: 
00564 QUEUE _MBF : 


00565 *BLKB 
568 ACCOUNTING PABS: 
00570 ACCOUNTING RABS : 
00578 ACCOUNT_FAB A: 
.BLRB 


BROA 
vO4- 


AST 


Broadcast message to user 


1Feseo-96 13:36:59 — UNdactu sre Seroabcast 682;1 
005C8 ACCOUNT_RAB_ A: 
0060¢ ACCOUNT_NAM A: 
0066C ACCOUNT _RSA A: 

BLRB 


. 55 
00768 ‘Beef 
0076C ACCOUNT_FAB B: 


68 
96 


B 80 
007BC ACCOUNT_RAB B: - 
00800 ACCOUNT_NAM B: "= 
00860 ACCOUNT_RSA B: 

-BLRB 255 
0095F -BLKB 1 
00960 DIAG_FAB: 

-BLKB 80 
009B9 DIAG_RAB: 

-BLKB 68 
009F4 MBX_CHAN: 

-BLKB 4 
009F8 MBX_10SB: 

-BLKB 8 
QOA00 MBX, BUFFER: 

LKB 10 


00E00 VALUE _STORAGE BASE: 
0000 ITEM -PRESENT: 
00E20 VALUE_GETQUI BASE: 

00E20 VALUE “ACEDUNT ING MESSAGE : 
00E26 VALUE -ACEQUNT ING, TYPES: 
OOE2A VALUE ~AFTER) TIME: 

00E32 VALUE -ALIGHMENT _PAGES: 

00E33 VALUE_BASE “PRIORITY: 

00E34 VALUE_BATCH INPUT: 

OOE3A VALUE “Bait OUTPUT: 

00E44 VALUE BUFFER COUNT: 

00E45 VALUE CHARACTERISTIC NAME : 
00E4B VALUE _CHARACTERIST1C NUMBER: 
O0E4C VALUE CHARACTERISTICS 

O0E5C VALUE CHECKPOINT DATA: 

Q0E62 VALUE_CLI: 


BROADCAST 
v04- 


Broadcast message to user 


<2 

VERE TEENY att” 
00E68 VALUE_.CPUr DEFAULT: 
OOE6C VALUE_CPU CinIT: 
00E70 VALUE DESTINATION. QUEUE 
00E78 VALUE DEVICE NAME : 
QOE7E VALUE_ENTRY NUMBER: 
00E82 VALUE ENTRY NUMBER_OUTPUT : 
OOE8C VALUE -ExiEND QUANTITY: 
QOE8E VALUE_FILE COPIES: 
OOESF VALUE_FILE FADENTJE CATION: 
QOEB3 VALUE_FILE SETUP MODULES: 
OOEB9 VALUE_FILE SPECIFICATION: 
QOEBF VALUE_FIRST PAGE: 
OOEC3 VALUE “Foi DESCRIPTION: 
OOEC9 VALUE_FORM LENGTH: 
OOECA VALUE_FORM RARGIN. BOTTOM: 
OOECB VALUE_FORM MARGIN LEFT: 
OOECD VALUE_FORM MARGIN RIGHT: 
OOECF VALUE_FORM RARGIN, TOP: 
O0EDO VALUE_FORM NAME: 
QOED6 VALUE_FORM NUMBE 
OOEDA VALUE FORM: 
OOEE2 VALUE FORM SETUP MODULES : 
OOEE8 VALUE FORM Stock; 
QOEEE VALUE_FORM WIDTH: 
OOEFO VALUE -GENERIC_ TA 
012D4 VALUE_JOB COPIES: 
012D5 VALUE_JOB_LIMIT: 


R: 
4 
8 
b 
6 
2 
R 
9 
1 
1 

012D6 VALUE_JOB_NAME : 
-BLKB 6 


Bl 
S 


ne} 


=32 V4.0-7 
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10 

HESepctoge 3s4g:16 ysl ok 
012DC VALUE_JOB RESET. MODULES: 
012€2 VALUE_JoB Size MAXIMUM: 
012E6 VALUE_JOB Size MINIMUM: 
012EA VALUE_JOB STATUS QuTPUT: 
012F4 VALUE “LAST PAGE : 
012F8 VALUE “L1GRARY. SPECIFICATION: 
O12FE VALUE_LOG QUEUE: 
01306 VALUE_LOG SPECIFICATION: 
0130C VALUE_NOTE: 
01312 VALUE -oPRATOR. REQUEST: 
01318 VALUE_OWNER UIC: 
0131C VALUE “PAGE SETUP 
01322 VALUE PARAMETER. 
01328 VALUE “PARAMETER. 
0132E VALUE “PARANETER.. 
01334 VALUE PARAMETER. 
0133A VALUE_PARAMETER_ 
01340 VALUE _PARANE TER. 
01346 VALUE PARAMETER. 
0134¢ VALUE PARAMETER 
01352 VALUE PRIORITY 
01353 VALUE PROCESSOR: 
01359 VALUE_PROTECTION: 
0135D VALUE -0vUe’ 
01363 VALUE QUEUE FILE SPECIFICATION: 
01369 VALUE_RELATIVE_PAGE: 
0136D VALUE RESERVED _INPUT_1 
0136E VALUE RESERVED. INPUT_2: 
01370 VALUE _RESERVED_INPUT_3: 


MODULES: 


ero aD a = POE NOOO EOWO NO —08 a “oO ao Oo 


ss-32 V Page 9 
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BUF 
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10 
AST Broadcast message to user 15. -Sep-1984 6:1 AX-11 Bliss-32 V4.0-7 P 0 
° 1a-8ep- 198 $3: 38: 4§ JOBCTL. ORE tJaROADCAST. 4 2:1 _ (33 
-BLKB 4 
01374 VALUE RESERVED. INPUT_4: 
-BLKB 


0137A VALUE RESERVED. ourpuT_1: 
01384 VALUE _RESERVED_OUTPUT 2: 
0138E VALUE_SEARCH STRING: 
01394 VALUE_SCSNODE_NAME : 
0139A VALUE _WSBEFAULT:. 

0139C VALUE_WSEXTENT: 

0139E VALUE_WSQUOTA: . 

013A0 eke 


44 
“EXTRN CREATE _SRQ_RECORD 
-EXTRN SYSSBRRTHRO 


-PSECT CODE,NOWRT,2 


0000 00000 .ENTRY BROADCAST_MESSAGE, Save nothing : 1108 
SE 10 C2 00002 SUBL2 #16, SP ; 
50 04 ac 00 0000 MOVL  SYSID, RO > 1147) 
60 00000000' EF D1 00009 CMPL = THIS_SYSID, (RO) : 
OA 12 00010 BNEQ so ; 
04 a0 00000000' EF B81 00012 CMPW ss THIS_SYSID+#4, 4(RO) : 
13 13 OOO1A BEQL : 
7E 0c ac 7D 0001C 18: MOVO == LENGTH, =(SP) : 1152) 
08 AC DD 000 PUSHL USERNAME ; 
50 DD 000 PUSHL : 
09 DD 900 PUSHL #9 > 1150. 
000000006 EF 5 FB 000 CALLS #5, CREATE_SRQ_RECORD : 
4 0002E RET £1147) 
08 AE OC AC 70 O0002F 28: MOVO LENGTH, (fs DESC > 1163 | 
6E 0C D0 000 MOVL #2 > 1165. 
04 AE 08 Ac 00 0037 MOVL Uaeinhne “USER_DESC+4 > 1166 
7E 7C 0003C CLRO (SP) : 1172 
OA DD 90 ; PUSHL #10 ; | 
03 Dd 0004 PUSHL a3 ; 
7E 0 7D 0042 vO. #32, -(SP) ; 
7E 2 70 904 MOV #2, -=(SP) ; 
20 AE 9F 00048 PUSHAB USER_DESC : 
2C = AE.séO9F:«00048 PUSHAB MSG_BES : 
7E D4 O004E CLRL 3s = (SP) : 


10 
SPS ovmens sores 208 UHCI MESSED WLS 


F a #11, SYSSBRKTHR : 
000006006 v0 08 fe 60020 a SYS$B U 117% 
; Routine Size: 88 bytes, Routine Base: CODE + 0000 


eevee Broadcast message to user 18. 105419 4 $3: 36: 1g AX-11 -32 v4.0 Page ;| 


1 
14-Sep-1986 VOBCTL. SREIBROAMCAST 692: 1 (4 
1 1175 1 END 
18 1176 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
: COMMON 308% NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, pala bg batt 
; CODE 8 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics | 
Beri oe er eee Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: .$255$DUA28: CSYSLIBILIB.L32;1 18619 36 0 1000 00:01.4 | 
COMMAND QUALIFIERS | 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:BROADCAST/OBJ=0BJ$:BROADCAST MSRC$:BROADCAST/UPDATE=(ENH$:BROADCAST) 
: stae: 88 code + 5024 data bytes 
un Time 0.6 


3 ophiy taee 01:19.2 
3; Lines/CPU Min: 6681 

3; Lexemes/CPU-Min: 59853 

; emaey Used: 207 pages 
; Compila 


tion Complete 


T CORPORATION 
PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


0191 


